From: Stefan Kangas Date: Sun, 3 May 2020 14:17:08 +0000 (+0200) Subject: Use lexical-binding in w32-vars.el X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~6681 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b82dbba5e0d0e35e8944e517f05f726ac70fd43d;p=emacs.git Use lexical-binding in w32-vars.el * lisp/w32-vars.el: Use lexical-binding. (w32-use-w32-font-dialog, w32-allow-system-shell (w32-system-shells, w32-fixed-font-alist): Remove redundant :group args. --- diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 307490dc4b0..642a48446ef 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -1,4 +1,4 @@ -;;; w32-vars.el --- MS-Windows specific user options +;;; w32-vars.el --- MS-Windows specific user options -*- lexical-binding:t -*- ;; Copyright (C) 2002-2020 Free Software Foundation, Inc. @@ -44,22 +44,19 @@ after changing the value of this variable." :type 'boolean :set (lambda (symbol value) (set symbol value) - (setq mouse-appearance-menu-map nil)) - :group 'w32) + (setq mouse-appearance-menu-map nil))) (unless (eq system-type 'cygwin) (defcustom w32-allow-system-shell nil "Disable startup warning when using \"system\" shells." - :type 'boolean - :group 'w32)) + :type 'boolean)) (unless (eq system-type 'cygwin) (defcustom w32-system-shells '("cmd" "cmd.exe" "command" "command.com" "4nt" "4nt.exe" "4dos" "4dos.exe" "tcc" "tcc.exe" "ndos" "ndos.exe") "List of strings recognized as Windows system shells." - :type '(repeat string) - :group 'w32)) + :type '(repeat string))) ;; Want "menu" custom type for this. (defcustom w32-fixed-font-alist @@ -149,8 +146,7 @@ menu if the variable `w32-use-w32-font-dialog' is nil." (const :tag "Separator" ("")) (list :tag "Font Entry" (string :tag "Menu text") - (string :tag "Font"))))))) - :group 'w32) + (string :tag "Font")))))))) (make-obsolete-variable 'w32-enable-synthesized-fonts nil "24.4")